DBChart se zobrazenou mezi

Otázka od: Macecek Marcel

25. 11. 2002 10:59

Potreboval bych do DBChartu vlozit primku zobrazujici nejakou mez.
Nevite nahodou nekdo, jak by se to dalo do neho vlozit (zobrazit) ???

Diky
Marcel

Odpovedá: Pavel Gazda

25. 11. 2002 13:55

Ahoj,

takto kreslim caru zobrazujici aktualni cas,
jinak dost lze vycist ze zdroju v TeeChart.

Pavel

procedure TGrafForm.GrafBeforeDrawAxes(Sender: TObject);
var
  tmpRect:TRect;
  XPosition:Integer;
  Time : TDateTime;
begin
  With Chart do
  Begin
    tmpRect := ChartRect;
    Time := Now;
    if (BottomAxis.Minimum < Time) and
       (BottomAxis.Maximum > Time) then
    With Canvas do
    begin
      XPosition := BottomAxis.CalcXPosValue(Time);
      Pen.Width:= TimeLineSize;
      Pen.Style:=psSolid;
      Pen.Color:= TimeLineColor;
      MoveTo(XPosition,ChartRect.Bottom);
      LineTo(XPosition,ChartRect.Top);
    end;
  end;
end;

> Potreboval bych do DBChartu vlozit primku zobrazujici nejakou mez.
> Nevite nahodou nekdo, jak by se to dalo do neho vlozit (zobrazit) ???
>